home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 67 / 067.d81 / puzzle boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  40 lines
  1. 10 poke53281,.:poke53280,12:print"[147]"
  2. 20 gosub260
  3. 30 sys57812"steel city font",8,0:poke780,0:poke781,0:poke782,48:sys65493
  4. 40 poke53272,29
  5. 50 b$="     [221][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][221]"
  6. 60 c$="                       "
  7. 70 print"     [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  8. 80 fori=1to7:printb$:next
  9. 90 print"     [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  10. 100 poke214,8:print
  11. 120 print:printtab(9)"[212]he[208][213][218][218][204][197][208][193][199][197]"
  12. 140 print:printtab(6)"[150][193][211][208][197][195][201][193][204][200][207][204][201][196][193][217][197][196][201][212][201][207][206]"
  13. 150 print
  14. 170 sys57812"windows.o",8,0:poke780,0:poke781,16:poke782,205:sys65493
  15. 172 sys57812"file handler.o",8,0:poke780,0:poke781,106:poke782,129:sys65493
  16. 174 sys33136,28000,"medley"
  17. 176 sys57812"sid player",8,0:poke780,0:poke781,0:poke782,192:sys65493
  18. 178 sys33133,28000,57344,5120
  19. 180 sys33130,57344,57344+5119,.
  20. 182 sys33130,49152,51126,.
  21. 190 open15,8,15,"r0:puzzle page 67=puzzle page 67":input#15,er:close15
  22. 200 print"[144]load"chr$(34)"puzzle page 67"chr$(34)",8"
  23. 210 print"run"
  24. 220 poke43,1:poke44,64:poke16384,0
  25. 230 poke631,13:poke632,13:poke633,13:poke198,3
  26. 240 new
  27. 250 :
  28. 260 poke214,15:print
  29. 270 print"  [151][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]"
  30. 280 print"  [152]                                    "
  31. 290 print"            [212][200][197] [208][213][218][218][204][197] [208][193][199][197]           "
  32. 300 print"     [194]y [194]arbara [200]. [211]chulak (c) 1989   "
  33. 310 print"        [208]ublished on [204][207][193][196][211][212][193][210] #67     "
  34. 320 print"      [211]ubscriptions 1-800-831-2694    "
  35. 330 print"           [193]ll [210]ights [210]eserved        "
  36. 340 print"                                      "
  37. 350 print"  [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  38. 360 return
  39. 370 open15,8,15,"s0:puzzle boot":close15:save"0:puzzle boot",8:end
  40.